home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group5 / MAIN2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-08  |  4.0 KB  |  134 lines
  1. VERSION 2.00
  2. Begin Form SessionForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Mail X Example Read Msg"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1395
  7.    ClientTop       =   1650
  8.    ClientWidth     =   5490
  9.    Height          =   4395
  10.    Left            =   1350
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   5490
  14.    Top             =   1320
  15.    Width           =   5580
  16.    Begin MMsg MMsg1 
  17.       BindString      =   "MSess1"
  18.       BodyAsFile      =   0   'False
  19.       DisplayErrors   =   0   'False
  20.       DisplaySendDialog=   0   'False
  21.       EnvelopeOnly    =   0   'False
  22.       FastFetch       =   -1  'True
  23.       FetchMsgType    =   ""
  24.       Height          =   420
  25.       Left            =   2520
  26.       MarkAsRead      =   0   'False
  27.       SortMsg         =   0   'False
  28.       SuppressAttach  =   -1  'True
  29.       TimeFormat      =   "%m/%d/%y"
  30.       Top             =   3480
  31.       UnreadOnly      =   0   'False
  32.       Width           =   420
  33.       WorkingMsg      =   0  '0- Inbox Message
  34.    End
  35.    Begin MSess MSess1 
  36.       DefaultPath     =   ""
  37.       DisplayErrors   =   -1  'True
  38.       DownLoadMsg     =   -1  'True
  39.       Height          =   420
  40.       Left            =   120
  41.       LogonUI         =   -1  'True
  42.       Mail_Type       =   0  '0- NONE
  43.       MapiCustomLibName=   ""
  44.       NewSession      =   -1  'True
  45.       Password        =   ""
  46.       Top             =   3480
  47.       User            =   ""
  48.       Width           =   420
  49.    End
  50.    Begin MForm MForm1 
  51.       Height          =   255
  52.       Left            =   3480
  53.       MXFormName      =   "FormTag2"
  54.       Top             =   3720
  55.       Width           =   1815
  56.    End
  57.    Begin CommandButton BtnOpen 
  58.       Caption         =   "Open Msg"
  59.       Height          =   375
  60.       Left            =   3120
  61.       TabIndex        =   2
  62.       Top             =   3480
  63.       Width           =   1335
  64.    End
  65.    Begin CommandButton BtnEnd 
  66.       Caption         =   "End"
  67.       Height          =   375
  68.       Left            =   1080
  69.       TabIndex        =   1
  70.       Top             =   3480
  71.       Width           =   1335
  72.    End
  73.    Begin SSPanel Panel3D1 
  74.       BevelInner      =   1  'Inset
  75.       BorderWidth     =   5
  76.       Height          =   3300
  77.       Left            =   180
  78.       TabIndex        =   0
  79.       Top             =   75
  80.       Width           =   5130
  81.       Begin ListBox MsgList 
  82.          Height          =   2955
  83.          Left            =   165
  84.          TabIndex        =   3
  85.          Top             =   150
  86.          Width           =   4830
  87.       End
  88.    End
  89. Sub BtnEnd_Click ()
  90.     End
  91. End Sub
  92. Sub BtnOpen_Click ()
  93.     Index = MsgList.ListIndex
  94.     If Index <> -1 Then
  95.         Load MsgForm
  96.         MsgForm.MMsg1.FetchMsg = Index + 1
  97.         MsgForm.szSubject = MsgForm.MMsg1.Subject
  98.         MsgForm.szNoteText = MsgForm.MMsg1.NoteText
  99.         MsgForm.szTime = MsgForm.MMsg1.TimeReceived
  100.         MsgForm.szMsgID = MsgForm.MMsg1.MsgID
  101.         MsgForm.MReci1.FetchRecipient = True
  102.         MsgForm.szOriginator = MsgForm.MReci1.RecipientName
  103.         MsgForm.MFile1.FetchFile = True
  104.         FileNum = MsgForm.MFile1.FileCount
  105.         For Index = 1 To FileNum
  106.             MsgForm.MFile1.FileNum = Index
  107.             MsgForm.szFileList.AddItem MsgForm.MFile1.FileName
  108.         Next
  109.         If FileNum > 0 Then MsgForm.szFileList.ListIndex = 0
  110.         MsgForm.Show 1
  111.     Else
  112.         MsgBox "Select a Mail Message"
  113.     End If
  114. End Sub
  115. Sub Command2_Click ()
  116. End Sub
  117. Sub Form_Load ()
  118.     Load SystemX
  119.     SystemX.MSMAIL = True
  120.     SystemX.Show 1
  121.     MSess1.Logon = True
  122.     If MSess1.Logon = False Then End
  123.     SessionForm.MousePointer = 11
  124.     MsgList.Clear
  125.     MMsg1.Action = ACTION_FINDFIRST
  126.     Do
  127.         If MMsg1.FetchMsg <> 0 Then
  128.             MsgList.AddItem MMsg1.Subject
  129.             MMsg1.Action = ACTION_FINDNEXT
  130.         End If
  131.     Loop While MMsg1.FetchMsg <> 0
  132.     SessionForm.MousePointer = 1
  133. End Sub
  134.